function MyCompareObjects (comparisonOperator: DescType;
(CONST) VAR theObject: AEDesc;
(CONST) VAR objOrDescToCompare: AEDesc;
VAR compareResult: boolean): OSErr;
var
theObjectCopy : AEDesc;
objOrDescToCompareCopy : AEDesc;
begin
{ OSL Ç™ãLèqéqÇçƒîzíuâ¬î\Ç»ÉuÉçÉbÉNÇ…É|ÉCÉìÉgǵǃǢÇÈÇΩÇflÅA
Ç‹Ç∏ãLèqéqÇÃÉRÉsÅ[ÇçsǧÅBDZÇÃçƒîzíuâ¬î\Ç»ÉuÉçÉbÉNÇÕÅAà»â∫ÇÃ
ÉRÅ[ÉhÇ…ÇÊǡǃà⁄ìÆÇ≥ÇÍÇÈâ¬î\ê´Ç™Ç†ÇÈ }
theObjectCopy := theObject;
objOrDescToCompareCopy := objOrDescToCompare;
{ à»â∫ÇÃÉIÉuÉWÉFÉNÉgÇèàóùÇ∑ÇÈïKóvǙdžÇÈÇΩÇflÅA
ÉIÉäÉWÉiÉãÇÃãLèqéqÇ null ãLèqéqÇ…ê›íËÇ∑ÇÈ }
SetToNullDesc (theObject);
SetToNullDesc (objOrDescToCompare);
{ î‰ärÇçsǧÉRÅ[ÉhÇÕDZDZDžíuÇ≠ }
MyCompareObjects := DoTheComparison (comparisonOperator, theObjectCopy,
objOrDescToCompareCopy, compareResult);
{ DZÇÍÇÁÇÃãLèqéqÇÕíËêîÇ≈džÇÈÇΔëOíÒÇ≥ÇÍÇÈÇ™ÅAOSL ÇÕåàǵǃ
ÉgÅ[ÉNÉìÉRÅ[ÉãÉoÉbÉNä÷êîÇåƒÇ—èoÇ≥ǻǢÅBDZÇÃÇΩÇflÅAãLèqéqÇÃÇ¢Ç∏ÇÍǩǙ
ÉAÉvÉäÉPÅ[ÉVÉáÉìíËã`ÇÃÉgÅ[ÉNÉìÇ≈džÇÈèÍçáÅAǪÇÍÇÁÇÕDZDZÇ≈èàóùÇ∑ÇÈ }
MyDisposeToken (theObjectCopy);
MyDisposeToken (objOrDescToCompareCopy);
end;
|